home *** CD-ROM | disk | FTP | other *** search
/ Over 1,000 Windows 95 Programs / Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso / 1469 / news.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-08-03  |  2.3 KB  |  67 lines
  1. VERSION 4.00
  2. Begin VB.Form frmNews 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H00000000&
  5.    BorderStyle     =   0  'None
  6.    ClientHeight    =   405
  7.    ClientLeft      =   1965
  8.    ClientTop       =   4320
  9.    ClientWidth     =   6690
  10.    ControlBox      =   0   'False
  11.    FillStyle       =   0  'Solid
  12.    ForeColor       =   &H00000000&
  13.    Height          =   810
  14.    Icon            =   "News.frx":0000
  15.    Left            =   1905
  16.    LinkTopic       =   "Form1"
  17.    LockControls    =   -1  'True
  18.    MaxButton       =   0   'False
  19.    MinButton       =   0   'False
  20.    ScaleHeight     =   405
  21.    ScaleWidth      =   6690
  22.    ShowInTaskbar   =   0   'False
  23.    Top             =   3975
  24.    Width           =   6810
  25.    Begin VB.PictureBox picDisplay 
  26.       Appearance      =   0  'Flat
  27.       BackColor       =   &H00000000&
  28.       FillStyle       =   0  'Solid
  29.       ForeColor       =   &H00000000&
  30.       Height          =   465
  31.       Left            =   0
  32.       ScaleHeight     =   435
  33.       ScaleWidth      =   6660
  34.       TabIndex        =   0
  35.       Top             =   0
  36.       Width           =   6690
  37.    End
  38. Attribute VB_Name = "frmNews"
  39. Attribute VB_Creatable = False
  40. Attribute VB_Exposed = False
  41. Option Explicit
  42. Dim moEDisp As New CElectronicDisplay
  43. Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
  44. Private Sub Form_Load()
  45.     Call SetWindowPos(hwnd, -1, 0, 0, 0, 0, 3)   'Always on top in case pesky task bar is in the way
  46.     With Screen
  47.         Move 0, .Height - Height, .Width
  48.     End With
  49.     picDisplay.Width = Width
  50.     With moEDisp
  51.         .ShowGrid = False
  52.         Set .Container = picDisplay
  53.         .Caption = "Click message to end it  ~~~  " & _
  54.                    "Microsoft buys England - will license English language  ~~~  " & _
  55.                    "Developers switching to COBOL in droves  ~~~  " & _
  56.                    "Computer virus transmitted to humans via keyboard  ~~~  "
  57.     End With
  58. End Sub
  59. Private Sub Form_Unload(Cancel As Integer)
  60.     moEDisp.Shutdown
  61.     Set moEDisp = Nothing
  62.     Set frmNews = Nothing
  63. End Sub
  64. Private Sub picDisplay_Click()
  65.     Unload Me
  66. End Sub
  67.